' Excel Visual Basic code for Teckmo Devices 
' Last updated Feb 22, 2001 

' For the most recent updates and product information please check our website 
' Zaber Technologies Inc - www.zaber.com 



' Note that the code below is identical to the Visual Basic Demo code in every way 
' (ie it was simply cut and pasted from MS Visual Basic) except for the addition 
' of the UserForm_lnitialize() subroutine (see this routine below for more details) 

' global variables 

Dim iCommand(1 To 6) As Byte ' 6 byte command to send 

Private Sub cmdOpenCom_Click() 
' the "open com port and renumber" button was clicked 
If objCommPortl .PortOpen = True Then 

MsgBox 'The Com port is already open" 
Else 

With objCommPortl 

' Set com port number based on user selection 

flf optCom LValue = True Then 
.CommPort =1 

E ' S CommPort = 2 
End If 

' try to open the port 
.PortOpen = True 

' settings for Teckmo communications 
.Handshaking = com None 
.Settings = "4800,N,8,1" 



, (( .InputMode = comlnputModeText 

v \ v n y -lnputLen = 1 
^ x S> /O -RThreshold = 1 



.DTREnable = True 
.RTSEnable = True 
.DTREnable = False 
'tf .RTSEnable = False 

End With 

' renumber all units 

'objCommPortl .Output = Chr$(0) + Chr$(2) + Chr$(0) + Chr$(0) + Chr$(0) + Chr$(0) 
'wait while renumbering 
Call Delay (2. 5) 
End If 
End Sub 
■ 

Private Sub cmdExecuteSheet_Click() 
' execute all commands on the sheet in sequence starting at top left 
' commands must be preceded by 'ZT' in a cell by itself 
If (objCommPortl. PortOpen = False) Then 

MsgBox "The Com port is not open" 
Else 

Range("A1").Select 
find first command 



Cells. Find(What:="ZT", After:=ActiveCell, Lookln:=xlValues, LookAt- 



' then close the port 

If objCommPortl.PortOpen = False Then 
MsgBox 'The Com port is already closed" 



objCommPortl.PortOpen = False 
end bub 

Private Sub optCom1_Click() 
End Sub 

Private Sub Worksheet_Deactivate() 
1 close the com port when the worksheet is deactivated 
' so that the com port will be available for access by 
! VB code in other worksheets 
If (objCommPortl.PortOpen = True) Then 

End If cmdC,oseCom - Click 
End Sub 

Private Sub Delay(d) 
wait for d seconds 
t = Timer 

While (Timer - 1) < d 
Wend 
End Sub 

Private Sub objComm Port 1 OnComm() 
'just remove any bytes received by the com port 
temp = objCommPortl. Input 

■ 

Sub Position_to_bytes(Position As Double) 
■ convert the user input data into 4 data bytes to send 
If Position >= Then 
'positive value entered by user 
iCommand(6) = lnt(Position / (256# * 256# * 256#)) 
Position = Position - 256# * 256# * 256# * iCommand(6) 
iCommand(5) = lnt(Position / (256# * 256#)) 
Position = Position - 256# * 256# * iCommand(5) 
iCommand(4) = lnt(Position / 256#) 
Position = Position - 256# * iCommand(4) 
iCommand(3) = Int(Position) 
Else 

'negative value entered by user 
Position = -Position - 1 

iCommand(6) = lnt(Position / (256# * 256# * 256#)) 
Position = Position - 256# * 256# * 256# * iCommand(6) 
iCommand(5) = lnt(Position / (256# * 256#)) 
Position = Position - 256# * 256# * iCommand(5) 
iCommand(4) = lnt(Position / 256#) 
Position = Position - 256# * iCommand(4) 
iCommand(3) = Int(Position) 
iCommand(6) = 255 - iCommand(6) 
iCommand(5) = 255 - iCommand(5) 
iCommand(4) = 255 - iCommand(4) 



End _ 

■ 



iCommand(3) = 255 - iCommand(3) 
End If 
End Sub 



Rev- 



The code is: 

Private Sub cmdCancelClickO 
Me.Hide 



End Sub 

(snorn) elulW 

Find the userform terminate event and add the exact same code as follows: 
Private Sub UserFormJTerminateO 
Me.Hide 

'Unload Application 
Application. Quit 
End Sub 

■ 

Now to consider how to run the application once the Print button is clicked: 
Private Sub cmdPrintjClickO 
Dim intl As Integer 

nNumberOfCopies = -1 
While nNumberOfCopies = -1 
IflsNumericftxtPONumber.Text) = False Then 
MsgBox "Only numbers please! ", vbOKOnly 
txtPONumber. Text - Range("K8"). Value 
•fetch the last value that was printed +1 
Else 

IflsNumericftxtQuantity.Text) = False Then 

txtQuantity.Text = "I" 
Else 

'fetching the setup values 

nStartingFrom = Round(Val(txtPONumber.Text), 0) 
nNumberOfCopies = Round(Val(txtQuantity.Text), 0) 
End If 
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End If 
Wend 



■ 



If nNumberOfCopies <> Then 
For intl = 1 To nNumberOfCopies 
Range("K8 "). Value = nStartingFrom 
CallPrintPO 

nStartingFrom = nStartingFrom + I 
Next intl 

'save the values in the workbook 

'to prevent the "AReyou sure question 

"when the application closes 

Range("K8"). Value = Range("K8"). Value + I 

'saving the next number to be printed 

ActiveWorkbookSave 

End If 

Me.Hide 

'Unload Application 
Application.Quit 



